The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/crc.src

Text File | 1990-10-20 | 816b | 22 lines

%%HP: T(3)A(R)F(.);
@ by James Cloos.
@
@  CRC: #CB3Ch and 162.5 bytes.
@
@  Disclaimer:
@  The required wrapper to use it with hexdump strings on the 48
@  is mine.  The thought that this might be the crc algorithm
@  used by BYTES is from reading the src to usrlib (nibble.c [sic]
@  file) Copyright 1990 by HP.  As the algorithm is not theirs,
@  and as I had to write the wrapper, and as I had to then compare
@  it with the output from BYTES to determine if the output would
@  be the same, I felt it is acceptable for me to post & otherwise
@  distribute it.
\<< \-> s
  \<< # 0h 1 s SIZE
    FOR J "#" s J DUP SUB + "h" + STR\-> OVER  @ process one nib at a time
      XOR # Fh AND # 1081h * SWAP SR SR SR SR XOR  @ CRC algorithm
    NEXT # FFFFh AND  @ get last four nibs only
  \>>
\>>